home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / EasyGUI / Examples / toolify_test.e < prev   
Encoding:
Text File  |  1997-10-07  |  508 b   |  24 lines
  1. MODULE 'tools/exceptions',
  2.        'tools/easygui',
  3.        'plugins/toolify'
  4.  
  5. PROC main() HANDLE
  6.   DEF p=NIL:PTR TO toolify
  7.   NEW p.toolify('Toolify','Hello from Toolify',TRUE)
  8.   easyguiA('GadTools in EasyGUI!',
  9.     [ROWS,
  10.       [TEXT,'Toolify test...',NIL,TRUE,1],
  11.       [SPACE],
  12.       [PLUGIN,0,p,TRUE],
  13.       [SPACE],
  14.       [BUTTON,{toggle_enabled},'Toggle Enabled',p]
  15.     ])
  16. EXCEPT DO
  17.   END p
  18.   report_exception()
  19. ENDPROC
  20.  
  21. PROC toggle_enabled(p:PTR TO toolify,i)
  22.   p.setdisabled(p.disabled=FALSE)
  23. ENDPROC
  24.